home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / -in_the_mag- / basics / amos / intuiextend20b.lha / distribution / exemples / BoolGadget.asc < prev    next >
Text File  |  1980-03-10  |  2KB  |  71 lines
  1. '**************************************
  2. '                                     *
  3. '     IntuiExtend.Lib 1.4/@1995-96    *
  4. '                                     *
  5. '          by CIERP Philippe.         *
  6. '                                     *
  7. '          from AMIGAzette 83         *
  8. '                                     *
  9. '**************************************
  10. '
  11. ' Command
  12. '  -Wb Wind Open 
  13. '  -Wb Wind Base 
  14. '  -Wb Init Bool Gadget  
  15. '  -Wb Icon Image  
  16. '  -Wb Gadget Image  
  17. '  -Wb Insert Gadget 
  18. '  -Wb Refresh Gadget  
  19. '  -Get Msg  
  20. '  -Wb Remove Gadget 
  21. '  -Wb Free Image  
  22. '  -Wb Free Bool Gadget  
  23. '  -Wb Wind Close
  24. '
  25. Default 
  26. A$=Fsel$(Dir$,"Bouton.abk","Chargez une banque contenant","des bouton SVP.")
  27. Load A$
  28. '
  29. Amos To Back 
  30. '
  31. Wb Wind Open SCR To 164,56,44,31,2+4+8+$2000000
  32. W=Wb Wind Base
  33. '
  34. 'Initialise un bool gadget 
  35. BGAD0=Wb Init Bool Gadget(0,6,12,32,16,0)
  36. '
  37. 'Si BGAD0=0, pas de gadget...  
  38. If BGAD0=0 Then Bell : Goto III
  39. '
  40. TR0=Wb Icon Image(1) : Rem Icon 1 -> Image 1
  41. TR1=Wb Icon Image(2) : Rem Icon 2 -> Image 2
  42. '
  43. 'Insère les images dans le gadget  
  44. Wb Gadget Image TR0,TR1 To BGAD0
  45. '
  46. 'Insère le gadget dans la GadgetList de la fenêtre   
  47. Wb Insert Gadget W To BGAD0
  48. '
  49. 'Redessine le gadget 
  50. Wb Refresh Gadget W,BGAD0
  51. '
  52. AA=Chip Free+Fast Free
  53. '
  54. 'Attend la sélection du CloseGadget($200)
  55. While Get Msg(W)<>$200 : Wend 
  56. '
  57. 'Elimine le gadget de la fenêtre 
  58. Wb Remove Gadget W,BGAD0
  59. '
  60. Wb Free Image TR0 : Rem Libére l'image 1   
  61. Wb Free Image TR1 : Rem Libére l'image 2   
  62. '
  63. 'Libére la mémoire du gadget 
  64. Wb Free Bool Gadget BGAD0
  65. '
  66. Print Abs((Chip Free+Fast Free)-AA);" octets de Mémoire libéré"
  67. '
  68. III:
  69. Amos To Front 
  70. Wb Wind Close W
  71.